home *** CD-ROM | disk | FTP | other *** search
- 10 ' FAKE.BAS
- 100 PRINT "This is a test"
- 200 END
- 300 '.MODULE fake
- 1000 '.LIBRARY baslib
- 1010 '.TYPE function
- 1050 '.DESCRIPTION
- 1060 ' Perform a fake function
- 1100 '.ARGUMENTS
- 1110 ' CALL FAKE(ARG1,ARG2)
- 1150 '.NARRATIVE
- 1160 ' This is a test for the fake BASIC function, which
- 1170 ' prints a message on the screen. It is called with
- 1180 ' no parameters
- 1200 '.APPLICATION test
- 1250 '.SYSTEM msdos
- 1300 '.SYSTEM vms
- 1350 '.AUTHOR Software Toolz
- 1400 '.RETURNS
- 1410 ' void
- 1450 '.LANGUAGE BASIC
- 1500 '.ENDOC END DOCUMENTATION
-
-